home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-01
/
wlib11_2.zip
/
EXAMPLES.EXE
/
EXAM95.C
< prev
next >
Wrap
C/C++ Source or Header
|
1991-03-13
|
977b
|
38 lines
#include "window.h"
#define NORM CREATE_VIDEO_ATTRIBUTE(black,white)
WPOINTER w1,w2;
main()
{
WindowInitializeSystem();
/* Make sure video page is 0 */
SetVisibleVideoPage(0);
SetActiveVideoPage(0);
/*Save Base screen for video pages 0 and 1 */
WindowSaveInitial(0);
WindowSaveInitial(1);
/* Initialize Windows */
w1 = WindowInitialize(BORDER,1,1,30,10,NORM,NORM,SINGLEBOX);
SetActiveVideoPage(1);
w2 = WindowInitialize(BORDER,1,1,30,10,NORM,NORM,SINGLEBOX);
WindowOpen(w1);
WindowOpen(w2);
WindowWriteString(w1,"This is window 1 on page 0",1,1);
WindowWriteString(w2,"This is window 2 on page 1",1,1);
/* Display video page 0 */
WindowDisplay(w1,1,NOEFFECT);
GET_KEY();
/* Change to video page 1 and display */
SetVisibleVideoPage(1);
WindowDisplay(w2,1,NOEFFECT);
GET_KEY();
/* Reset to page 0 */
SetVisibleVideoPage(0);
}